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Guida per l'input dei programmi versioni 
C64 


Notate che / listati contengono paro¬ 
le' racchiuse tra parentesi graffe } / 
Tali parole rappresentano caratteri di 
controllo come mostrato nel sotto¬ 
stante riquadro. Se sono precedute da 
un numero, questo indica il numero di . 
volte che quel tasto deve essere pre¬ 
muto. Se il simbolo è sottolineato de¬ 
ve essere premuto contemporanea¬ 
mente a SHIFT mentre se è racchiuso 
da [()] deve essere premuto con¬ 


temporaneamente al tasto COMMO¬ 
DORE Inoltre, se tra parentesi graffa 
si trova un carattere alfabetico "so¬ 
litario" questo covra essere pre¬ 
muto contemporaneamente al tasto 
CTRL 

Con questo sistema di codifica, sara 
molto più agevole copiare / listati sen¬ 
za faticose e dubbie interpretazioni di 
caratteri grafici e di controllo del cur¬ 
sore o dei colon 
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Per ricevere gli arretrati di 

K 



ùi/'£’à compilare il seguente tagliando: 


, Compilare ed inviare in busta chiusa a: 

J.SOTt viale Restelli, 5 - 20124 Milano - Tel. 02/6888228-683797-6880841-2-3 


Nome_ 

Cognome_ 

Indirizzo_ 

CAP_ Città_ Prov- 

\ 

Desidero ricevere i seguenti numeri arretrati di 

ìi/'j'J - Anno- 

ày'Jl'J dedicato a-- Anno-- 

a L 2 000 cad. per un totale di L a mezzo 


□ assegno allegato □ contanti allegati 
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Stop Bus 

Se non l'hai già fatto, memorizza 
STOP BUG e salvalo su nastro o di¬ 
sco. 

Questo programma ti permette, 
una volta caricato ed attivato con 
RUN, di digitare i listati di Papersoft 
senza introdurre errori di battitu¬ 
ra. 

Come avrai notato, le linee dei no¬ 
stri programmi terminano con la 


parola: "-.rem" seguita da un nume¬ 
ro, detto checksum,- NON COPIA¬ 
RE QUESTA PARTE DELLA LINEA, 
che serve solo per tua informazio¬ 
ne. Quando STOP BUG è in funzio¬ 
ne, infatti, tutte le volte che premi 
il tasto RETURN dopo aver digitato 
una linea di programma, appare 
nell'angolo superiore sinistro dello 
schermo un numero, che deve 
coincidere con il checksum da noi 
pubblicato (sempre che tu non ab¬ 
bia usato comandi abbreviati, co¬ 
me? per PRINT). 

Usando STOP BUG tieni conto del 
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fatto che gli spazi non influiscono 
sul checksum, per cui fai particola¬ 
re attenzione alle istruzioni PRINT 
dove sono spesso presenti. Inoltre 
eventuali inversioni di caratteri non 
vengono segnalate. 

Un altro metodo per utilizzare 
STOP BUG, soprattutto se sei abi¬ 
tuato ad usare le abbreviazioni dei 
comandi Basic, è controllare i che¬ 
cksum listando il programma e bat¬ 
tendo RETURN su ogni linea. 


Se intendi sospendere il lavoro di 
digitazione, puoi salvare su nastro 
o disco il programma che stai me¬ 
morizzando senza che STOP BUG 
interferisca,- al momento di ripren¬ 
dere il lavoro ricordati però di cari¬ 
care ed attivare STOP BUG prima 
di ricaricare il tuo programma. 

Per disabilitare STOP BUG premi 
RUN/STOP e RESTORE, e per riatti¬ 
varlo batti SYS 40704. 


STOP BUG per C64 

1 00 POKE55,0 :POKE56,PEEK{56)-1:R=PEEK(56)*256:PRINT"{CLR} 
ATTENDERE PREGO..." 

1 10 FORI=RTOR+l32:READA:CK=CK+A:IFA=999THENA=R/256 
120 POKEI,A :NEXT 

130 IFCK022689THENPRINT" {GIU* }ERRORE NELLE ISTRUZIONI DA 
TA": END 

140 SYS(R) SPRINT"{CLR}{ 2 GIU'}{RVS}STOP BUG{OFF} ATTIVAT 
O."; NEW 

200 DATAI 73,36,3,201 ,32,208,1 ,96,1 41 
210 DATA33,999,173,37,3,1 41 ,34,999,169 
220 DATA32,141 ,36,3,169,999,1 41 ,37,3 
230 DATAI 69,0,1 33,254,96,32,87,241 ,133 
240 DATA251,134,252,132,253,8,201,13,240 
250 DATAI 7,201 ,32,240,5,24,101 ,254,133 
260 DATA254,! 65,251 ,166,252,164,253,40,96 
270 DATAI 69,1 3,32,210,255,165,21 4,141 ,251 
280 DATA3,206,251,3,169,0,133,216,169 
290 DATAI 9,32,210,2 55,169,1 8,32,21 0,2 55 
300 DATAI 69,58,32,210,255,1 66,2 54,1 69,0 
310 DATAI 33,2 54,1 72,33,999,192,87,208,6 
320 DATA32,205,1 89,76,1 1 7,999,32,20 5,221 
330 DATAI 69,32,32,210,255,32,210,2 55,173 
340 DATA251,3,133,214,76,55,999 
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Caduta libera 


Questo è un gioco per due perso¬ 
ne, ognuna delle quali controlla un 
simbolo grafico rappresentante un 
omino,- l'obiettivo è farlo cadere 
dalla cima fino alla base dello 
schermo, facendogli attraversare 
delle pareti orizzontali mobili. Ci 
spieghiamo meglio: lo schermo 
contiene un muro formato da tante 
file di mattoni, nelle quali vi sono 
però dei buchi; tutti e due gli omini 
partono dalla sommità del muro, e 
i giocatori possono far scorrere la¬ 
teralmente le righe di mattoni. Per 
far ciò ognuno di essi dispone di 
una freccia, che deve posizionare 
in corrispondenza della parete che 
desidera far scorrere. Il giocatore 
sinistro usa i tasti 2-A per muovere 
la traccia in su e in giù, e i tasti Q- W 
per spostare a sinistra e a destra la 
riga di mattoni selezionata,- il gio¬ 
catore destro, analogamente, usa i 
tasti 0-L per la freccia e O-P per i 


100 POKE53281,0:POKE53280,5: 
1 1 0 DIMA$ (1 8) 

120 C=55296:H=.97:M=.7 
130 GOSUB670 
140 T=-1 :F = 0 
150 GOSUB580 
160 S=1024 

170 Al=123:A2=156:Tl=88:T2=l 
180 11=1 : 12=1:Pl=Tl:P2=T2:G1 
190 RL = 875 
200 PRINT"{CLR}" 

210 PRINT" "L$TAB(39-LEN(R$) 
220 GOSUB730 
230 FORI=lTOl8 
240 PRINTTAB(5)A$(I) 


mattoni. Dovete inoltre molta at¬ 
tenzione alle palline che si trovano 
nel muro: se infatti il vostro omino 
cade su una di esse, viene rispedi¬ 
to immediatamente al punto di 
partenza! 

Il vincitore è colui che riesce per 
primo a far raggiungere al proprio 
omino la base dello schermo, dove 
si trova un buco che si muove con¬ 
tinuamente, pronto ad accogliere il 
" precipitato". Alla fine di ogni par¬ 
tita si può scegliere se smettere, ri¬ 
cominciare da capo o continuare a 
giocare sullo stesso schermo. 

Vi accorgerete che questo è un 
gioco che richiede intelligenza e 
strategia, in quanto non bisogna 
solo osservare il proprio omino, 
ma anche badare a non favorire 
con le proprie mosse quello avver¬ 
sario, cercando anzi di ostacolarlo. 
Quindi, buon divertimento! 


OKE650,128 

: rem 

1 82 


: rem 

1 39 


: rem 

1 64 


: rem 

1 77 


: rem 

1 1 3 


: rem 

1 79 


: rem 

238 

8 

: rem 

101 

0 :G2 = 0 

: rem 

223 


: rem 

25 


: rem 

246 

R$:PRINT 

: rem 

1 20 


: rem 

1 74 


: rem 

63 


:rem 

1 27 
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250 NEXT : rem 214 

260 GETZ$ : rem 246 

270 IFZ$ = "Q"THENLR=I 1:GOSUB820 : rem 80 

280 IFZ$ = "W"THENLR=I 1:GOSUB820 :rem 87 

290 IFZ$ = " A" ANDI1 < 1 8THENIl=Il+l :POKES+Al , 32 : Al = Al +40 : POKE 
S+Al,62:POKEC+Al,3 :rem 129 

300 IFZ$ = "2"ANDI1>1THENI1=11 — 1 :POKES+Al,32 : Al=Al-40 :POKES 
+A1,62:POKEC+Al,3 :rem 56 

310 IFZ$="O"THENLR=l2:GOSUB820 :rem 74 

320 IFZ$ = "P"THENLR=I2:GOSUB820 :rem 76 

330 IFZ$ = "L"ANDI2<18THENI2 = I2+1:POKES+A2,32 :A2=A2+40:POKE 
S+A2,60 :POKEC+A2,3 : rem 141 

340 IFZ$ = "0"ANDI2>1THENI2 = 12-1 :POKES+A2,32 :A2 = A2-40 :POKES 
+A2,60 :POKEC+A2,3 :rem 64 

350 POKES+RL,160:RL=RL-1 :IFRL< 845THENRL=RL+30 :rem 49 

360 POKES+RL,32 :rem 117 

370 IFPEEK(S+Pl+40)=81THENPOKES+Pl,32:Pl=Tl:G1=0:rem 93 
380 IFPEEK(S+P2+40)=81THENPOKES+P2,32:P2=T2:G2=0:rem 99 
390 POKES+Pl,90:POKEC+Pl,7 :POKES+P2,87:POKEC+P2,7 

: rem 218 

400 IFPEEK(S+Pl+40)= 32THENPOKES + P1,32: Pi=Pl+40 :POKES+Pl,9 
0:POKEC+Pl,7:G1=G1+1 :rem 58 

410 IFPEEK(S+P2+40)=32THENPOKES+P2,32:P2=P2+40:POKES+P2,8 
7 :POKEC+P2,7:G2=G2 + 1 :rem 73 

420 IFPl>8400RP2>840THEN440 :rem 68 

430 GOTO260 :rem 104 

440 PRINT"{CLR}":PRINT :rem 195 

450 IFPl>840THENW$=L$:GOTO470 : rem 232 

460 W$=R$ : rem 200 

470 PRINT"{CYN}"W$"{WHT}" :rem 207 

480 PRINT"E' IL VINCITORE DI QUESTA PARTITA." : rem 196 

490 PRINT:PRINT :rem 241 

500 PRINT"PREMI :":PRINT"{GIU'}{CYN}N[<7>] PER UNA NUOVA P 
ARTITA" : rem 41 

510 PRINT:PRINT"{YEL}F{GRN} PER FINIRE" :rem 212 

520 PRINT:PRINT"[<1>]QUALSIASI ALTRO TASTO":PRINT"{RED} 

{ 2 SPAZI}PER CONTINUARE LA PARTITA{WHT}" :rem 22 

530 GETZ$:IFZ$ = ""THEN530 : rem 133 

540 IFZ$ = "F"THENEND :rem 115 

550 IFZ$="N"THENPRINT"{ 2 GIU'}{ 4 SPAZI}STO COSTRUENDO U 

NA NUOVA GRIGLIA":GOTOl50 :rem 9 

560 PRINT : rem 40 

570 GOTO 160 :rem 108 

580 FORI = lTOT 8 :rem 71 

590 A$(I)="" : rem 30 

600 FORJ = 1TO30 : rem 59 

610 X=RND(1) : rem 146 

620 IFX>HTHENA$(I)=A$(I)+"Q":GOTO6 50 :rem 189 

630 IFX>MTHENA$(I)=A$(I)+" ":GOTO650 :rem 242 

640 A$(I)=A$(I)+"[<+>]" : rem 234 

650 NEXT:NEXT :rem 83 
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660 

RETURN 

:rem 

1 24 

670 

PRINT"{CLR}[<3>]"TAB(12)"{RVS} CADUTA{ 2 

SPAZI}LIBERA 


ii 

: rem 

21 7 

680 

PRINT:PRINT 

: rem 

242 

690 

INPUT"GIOCATORE DI SINISTRA";L$ 

:rem 

1 81 

700 

INPUT"GIOCATORE DI DESTRA";R$ 

:rem 

9 

710 

PRINT:PRINT:PRINTTAB(1 0)"ATTENDERE, PREGO 

-{WHT}" 



:rem 

1 30 

720 

RETURN 

:rem 

1 21 

730 

FORI=1T032 

:rem 

64 

740 

POKES + I + 83,98 :POKEI + 83+C,3 

: rem 

21 7 

750 

POKES+I+843,160:POKEC+I+843,4 

: rem 

1 05 

760 

NEXT 

:rem 

220 

770 

FORI=124TO804STEP40 

:rem 

1 29 

780 

POKES + 1,160 :POKEC+I,3 :POKES+I+31,160 :POKEC+I+31 ,3 




:rem 

1 03 

790 

NEXT 

: rem 

223 

800 

POKES+Al,62:POKEA2+S,60 :POKEC+Al,7 :POKEC+A2,7 




:rem 

1 44 

810 

RETURN 

: rem 

1 21 

820 

Fi=F:F2=F:F3=T:F4=F:F5=F:F6=F:F7=F 

:rem 

239 

830 

IFLROG1 ANDG20LRTHEN1 030 

:rem 

1 7 

840 

IFZ$< >"Q"ANDZ$< >"0"THEN94 0 

:rem 

226 

850 

IFPEEK(S+Pl-1)<>160ANDPEEK(S+P1+1)=102THENFl=T 




:rem . 

1 87 

860 

IFPEEK(S+Pl+1)=160AND(PEEK(C+Pl+1)ANDl5)= 

3THENF1= 

T: LR 


=Gl 

:rem 

36 

870 

IFPEEK(S+P2-1)<>160ANDPEEK(S+P2+1 ) =102THENF2=T 




:rem 

1 92 

880 

IFPEEK(S+P2+1)=160AND(PEEK(C+P2+1)ANDl5)= 

3THENF2= 

T: LR 


=G2 

: rem 

42 

890 

IFPEEK(S+Pl-1)=160AND(Z$="W"ORZ$="P")THENF6=T 




: rem 

1 25 

900 

IFPEEK(S+P2-1)=160AND(Z$="W"ORZ$="P")THENF7=T 




:rem 

119 


910 IFPEEK(S+Pl-1 )=160ANDPEEK(S + Pl+1)=102ANDLR=GlTHENF3 = F 

:rem 149 

920 IFPEEK(S+P2-1 ) =160ANDPEEK(S+P2+1)=102ANDLR=G2THENF3=F 

:rem 153 

930 GOTO1030 :rem 153 

940 IFZ$<>"W"ANDZ$<>"P"THENl030 :rem 17 

950 IFPEEK(S+Pl+1)<>160ANDPEEK(S+Pl-1)=102THENF4=T 

: rem 191 


960 IFPEEK(S+Pl -1 ) =160AND(PEEK(C+Pl-1)ANDl5)=3THENF4=T:LR 
=Gl :rem 44 

970 IFPEEK(S+P2+1)<>160ANDPEEK(S+P2-1)=102THENF5=T 

: rem 196 

980 IFPEEK(S+P2-1)=160AND(PEEK(C+P2-1)ANDl5)=3THENF5=T:LR 
=G2 :rem 50 

990 IFPEEK(S+Pl+1 ) =160AND(Z$ = "Q"0RZ$ = "0")THENF6=T 

: rem 117 
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1000 IFPEEK(S+P2+1)=160AND(Z$="Q"0RZ$="0")THENF7=T 

: rem 150 

1010 IFPEEK(S+Pl+1)=160ANDPEEK(S+Pl-1)=102ANDLR=Gl THENF3 = 
F :rem 189 

1020 IFPEEK(S+P2+1)=160ANDPEEK(S+P2-1)=102ANDLR=G2THENF3= 



F 

: rem 

1 93 

1 030 

IFN0TF3THENRETURN 

: rem 

204 

1 040 

IFF6THENP0KES + P1,32:Pl=Tl: Gl=0:RETURN 

: rem 

1 1 6 

1050 

IFF7THENPOKES + P2,32 :P2=T2:G2 = 0:RETURN 

: rem 

1 22 

1 060 

IFFlANDLR=GlTHENPOKES+Pl,32:Pl=Pl-l:POKES+Pl,90 




: rem 

1 81 

1 070 

IFF2ANDLR=G2THENPOKES+P2,32:P2=P2-1:POKES+P2,87 




: rem 

1 94 

1 080 

IFF4ANDLR=GlTHENPOKES+Pl,32:Pl=Pl+l:POKES+Pl,90 




: rem 

1 84 

1 090 

IFF5ANDLR=G2THENPOKES+P2,32:P2=P2+1:POKES+P2,87 




: rem 

1 97 

1 1 00 

PRINT"{HOME}{GIU' }": FORI = 1TOLR:PRINT"{GIU 

' }"; :NEXT 



: rem 

1 60 

1110 

IFZ$="Q"ORZ$="0"THENA$(LR)=RIGHT$(A$(LR), 

29)+LEFT$(A 


$(LR),1) 

: rem 

1 71 

1 1 20 

IFZ$="W"ORZ$="P"THENA$(LR)=RIGHT$(A$(LR), 

1)+LEFT$(A$ 


(LR),29) 

: rem 

1 79 

1 1 30 

PRINTTAB(5)A$(LR) 

: rem 

3 

1 1 40 

RETURN 

: rem 

1 66 



£ 

Velox 

H H u 

Le gare automobilistiche hanno 
sempre avuto un enorme successo 
presso gli appassionati, e hanno 
sempre supportato un grossissimo 
giro di scommesse. Con questo 
programma potrai simulare una ga¬ 
ra di Formula Uno od anche un in¬ 
tero Campionato, e partecipare al¬ 
le scommesse sul vincitore. Il pro¬ 
gramma ha una struttura a menu 
autoesplicativi, e le varie opzioni 

sono selezionabili semplicemente 
con i tasti di funzione. Le auto pre¬ 
senti alla griglia di partecipazione 
sono 6; ad ognuna di esse puoi 
dare un nome a tua scelta. Il capita¬ 
le iniziale a disposizione per ogni 
scommettitore è di 1000 dollari, e 
le quote, inizialmente fissate a 10, 
variano dopo il primo Gran Prix in 
rapporto alla classifica delle gare 
precedenti. 

5 GOSUB300: GOTO4 0 :rem 31 

10 DATAI!507,12573,12522,11001 :rem 238 
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20 A=491 52:B=84:C=A+B:FORI=lT04:D=0:READX:FORJ=ATOC:D=D+P 
EEK(J):NEXT : rem 236 

30 A=C+1:C=A+B:NEXT:GOTO!510 :rem 155 

4 0 FORI = 1T04: READA :NEXT: READLO,HI :FORI = LOTOHI:READX:POKEI 
,X : rem 241 

41 NEXTsRUNl0 :rem 52 

50 DATA49152,49528 :rem 188 

60 DATAI 74,1 1 4,1 93,224,3,144,3,76,1 1 7,1 92,1 88,1 1 4,1 93,1 40 
, 1 21 , 1 93,1 74 : rem 126 

70 DATAI 1 8,1 93,232,202,32,30,1 93,1 72,1 21 , 1 93,1 73,1 1 9,1 93, 
201,2,208,10 :rem 102 

80 DATAI 69,32,72,1 73,33,208,72,76,50,1 92,1 77,90,72,1 77,92 

,72,204 :rem 156 

90 DATAI 1 6, 1 93,240,20,200,177,90,72,1 77,92,136,1 45,92,104 
,145,90,200 :rem 70 

100 DATA2 04,1 1 6, 1 93,208,238,240,1 8, 1 36,1 77,90,72,1 77,92,2 
00,145,92,104 : rem 173 

110 DATAI 4 5,90,1 36,204,1 1 5,1 93,208,236, 1 73,1 1 9,1 93,201 ,0, 
208,5, 1 04,1 04 : rem 151 

120 DATA76,111,192,104,145,92,104,145,90,236,117,193,208, 
160,96,172,11 6 : rem 222 

130 DATAI 93,200,1 89,1 14,193,170,32,30, 193,173,1 20,193,201 
, 2,208,1 9,1 36 : rem 157 

140 DATAI 69,32,1 53,1 22,1 93,1 73,33,208,1 53,1 62,1 93,204,1 1 5 
,193,208,239,240 :rem 65 

150 DATAI 6,136,1 77, 90,1 53,122,1 93,177,92,1 53,162,193,204, 
115,193,208,240 :rem 23 

160 DATA236,117,193,240,37,202,32,30,193,172,116,193,200, 
136,177,90,72 :rem 167 

170 DATAI 77,92,32,48, 193,145,92,104,145,90,32,56,193,204, 
1 1 5,1 93,208 : rem 88 

180 DATA234,236,117,193,208,221,240,46,202,206,118,193,23 
2,32,30,193,172 :rem 5 

190 DATAI 1 6,1 93,200,1 36, 32,4 8,1 93,1 77,90,72,1 77,92,32,56, 

1 93,145,92 : rem 48 

200 DATAI 04,145,90,204,1 1 5,193,208,234,236,1 1 8,193,208,22 
1,238,118,193,232 :rem 109 

210 DATA32,30,193,173,120,193,201 ,0,240,20,1 72,1 1 5,1 93,13 
6,200,185,162 :rem 137 

220 DATAI 93,14 5, 92,185,1 22,1 93,145,90,204,1 16,193,208,240 
,96,189,89,193 :rem 253 

2 30 DATAI 33,91,24,10 5,21 2,133,93,1 89,64,1 93,133,90,1 33,92 
,96,72,152 :rem 31 

240 DATA24,105,40,168,104,96,72,152,56,233,40,168,104,96, 
0,40,80 :rem 122 

250 DATA 120,160,200,240,24,64,104,144,184,224,8,48,88,12 
8,168,208,248 :rem 124 

260 DATA32,72,112,152,192,4,4,4,4,4,4,4,5,5,5,5,5 

:rem 125 

2 70 DATA5,6,6,6,6,6,6,6,7,7,7,7,7,3,0,4,0 :rem 252 

280 DATA4,1,1,-1 :rem 44 
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300 PRINT"{CLR}":POKE53281 ,0:POKE53280,14 :rem 187 

305 F0RI=1T08 :rem 17 

31 0 FORV= 1 224+6T01 224+33:POKEI*40+V, 1-60 :POKEI*4 0+V+542 72 , 
7 :NEXT : rem 133 

320 NEXTI : rem 29 

350 PRINT" { 14 GIU'H 5 DES}[<7>]Q{ 28 SPAZI}Q" : rem 36 

360 PRINT"{ 5 DES}B{WHT}[< 4 B>]{ 20 SPAZI}[< 4 B>][<7>] 
B" : rem 22 

370 PRINT"{ 5 DES}B{WHT}[< 7 B>]{ 4 SPAZI}{RED} [< 2 P>] 

[<I>] t< 2 P>]{ 3 SPAZI}{WHT} [< 7 B>] [<7>]B": rem 16 
380 PRINT"{ 5 DES}B{WHT}[< 7 B>]{ 2 SPAZI}[<5>] 

{ 2 SPAZI} [<D>] [<I>] {WHT}U [<7>]Q{WHT} Ij<5>] [<I>] [<F>] 
{WHT}{ 2 SPAZI}[< 7 B>] [<7>]B" : rem 133 

390 PRINT"{ 5 DES} B{ 2 SPAZI}{WHTTt 2 SPAZI}[< 3 B>] 

{ 2 SPAZI}N [<5>]{RVS}[<K>][<8>] {RED}[<P>] [<P>] 

[<8>] {0FFT[<5>][<K>]{WHT} M [< 3 B>]{ 3 SPAZI}[<7>] 

B" : rem 1 

400 PRINT"{ 5 DES}B{ 6 SPAZI}{RED}{ 2 SPAZI}N[<V>] 

{ 2 SPAZI}[< 2 Y>][<U>][< 2 Y>]{ 2 SPAZlT[<C>]M 
{ 5 SPAZI}[<7>]{ 2 SPAZI}B" : rem 217 

410 PRINT"{ 5 DES}{ 4 SPAZI}{WHT}{ 4 SPAZI}N[<V>] 

{ 11 SPAZI}[<C>]M" : rem 17 

420 PRINT"{ 5 DES}{ 3 SPAZI}{RED}{ 4 SPAZI}N[<V>] 

{ 13 SPAZI}[<C>]M" : rem 41 

430 PRINT"{ 5 DES} {WHT}{ 5 SPAZl}N[< 17 +>]M :rem 125 
440 PRINT"{ 5 DES}{ 2 SPAZI}{RED}{ 3 SPAZI}N[<V>] 

{ 17 SPAZI}[<C>]M{HOME}" : rem 62 

500 PRINT"{ 6 GIU 1 }{DES}{RVS}{RED}{ 6 DES} { 3 DES} {DES} 
{ 4 SPAZI}{DES} { 4 DES}{ 4 SPAZI}{DES} { 3 DES} " 

:rem 62 

510 PRINT"{RVS}{ 7 DES} { 3 DES} {DES} { 4 DES} { 4 DES} 

{ 2 DES} { 2 DES} {DES} " : rem 49 

520 PRINT"{RVS}{ 7 DES} { 3 DES} {DES}{ 3 SPAZI}{ 2 DES} 

{ 4 DES} { 2 DES} { 3 DES} " .-rem 248 

530 PRINT"{RVS}{ 7 DES} { 3 DES} {DES} { 4 DES} { 4 DES} 

{ 2 DES} { 2 DES} {DES} " : rem 51 

540 PRINT"{RVS}{ 8 DES} {DES} { 2 DES} { 4 DES} { 4 DES} 

{ 2 DES} {DES} { 3 DES} " : rem 81 

550 PRINT"{RVS}{ 9 DES} { 3 DES}{ 4 SPAZI}{DES} 

{ 4 SPAZI}{DES}{ 4 SPAZI}{DES} { 3 DES} " : rem 135 

600 RETURN :rem 118 

1510 READXX: IFXXO-1 THENl 51 0 : rem 218 

1520 H=53248:W=1 :rem 82 

1 600 FORI = 204 0TO204 5 :POKEI,13:NEXT : rem 35 

1605 POKE2046,14:POKEH+45,1 :rem 250 

1610 FORI=0TO31:READDA:POKE832+1,DA:NEXT :rem 235 

1615 FORI = 32TO62:POKE832 + 1,0 :NEXT : rem 249 

1 630 DATA231,128,0,231,1 84,236,243,126,236,223,255,92,207 
,7,254,231,3,255 :rem 58 

1640 DATA207,7,254,223,255,92,243,126,236,231,184,236,231 
,128 :rem 246 
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1650 FORI=0TO62:READDO:POKE896+I, DO:NEXT :rem 25 

1 660 DATA64,0,2,32,112,4,17,251,248,14,123,236,27,124,220 
,57,127,190,124 :rem 247 

1661 DATAI 91 , 126,254,190,249,253,189,23,253,251,158,253,2 

22,124,252,223 :rem 236 

1662 DATA242,126,189,238,7,190,127,127,191,159,120,159,20 



7,113,207,242 

:rem 

1 89 

1 663 

DATA45,255,252,99,241,248,132,0,0,8,0,0 

:rem 

1 61 

1 680 

GF=1:J=0:GOTOl0000 

:rem 

31 

1 690 

REM*** CORSA 

: rem 

1 70 

1 700 

H=53248:W=1 

: rem 

82 

1 720 

F0RI=88T088+24*6STEP24:P0KEH+W,I:W=W+2:NEXT 

: rem 

240 

1 730 

POKEH+21,0 

: rem 

44 

1 800 

FORN=OTO5: X(N)=35:NEXT 

: rem 

1 46 

1 81 0 

FORI=0TOl0STEP2:POKE53248+I,35:NEXT 

:rem 

201 

1 820 

POKEH+3 9,7 :POKEH+4 0,5 :POKEH+41 ,2 :POKEH+4 2,1 

:POKEH+43 


2000 
201 0 

2020 

2030 

2040 

2060 

2070 

2900 

291 0 
2920 


1 50 
23 


,6:POKEH+44,15 :rem 150 

POKE53281,0:POKE53280,0 :rem 23 

PRINT"{CLR}{ 2 GIU'}":FORI=0TO9:PRINT"{RVS}{WHT} 

{ 2 SPAZI}{RED}{ 2 SPAZI}";:NEXT :rem 238 

FORI = l024TO1143:POKEI,160:POKEI+54272,5 :NEXT 

:rem 148 

FORI=l944TO2023:POKEI,160:POKEI+54272,5:NEXT 

:rem 158 

PRINT”{ 17 GIU'}”:FORI=0TO9:PRINT"{RVS}{WHT} 

{ 2 SPAZ1}{RED} { 2 SPAZI}";:NEXT : rem 93 

FORI=OTOl5STEP3:POKEl224+1*40,49+1/3:POKE55496+1*40, 
1:NEXT :rem 206 

PRINT"{HOME}{GIU'}{ 5 DES}{RVS}{GRN}GARE DISPUTATE"; 
GF-1 :rem 119 

POKE49523,0:POKE49524,39:POKE49525,1:POKE49526,23:PO 
KE49522,1:POKE48527,1 :rem 213 

prtnt"(home!" :rem 176 


2930 


2940 

2950 

2955 

2960 

2961 


KE49522,1:POKE48527,1 :rem 213 

PRINT"{HOME}" : rem 176 

Tl $ = "{RVS} {WHT} { 4 GIU'H 3 SIN}[< 2 B>]{GIU’} 

{ 2 SIN}{< 2 B>] {GIU 1 }{ 2 SIN}[< 2 B>]{GIU’} 

{ 2 SIN} [< 2 B>] {GIU'H 2 SIN}[< 2 B>]{GIU'} 

{ 2 SIN}[< 2 B>]{GIU'}{ 2 SIN}[< 2 B>]{GIU'} 

{ 2 SIN} [< 2 B>] {GIU'H 2 SIN} [< 2 B>] {GIU'} 

{ 2 SIN}[< 2 B>]" : rem 184 

T2$="{RVS}{WHT}{GIU'}{ 2 SIN}[< 2 B>]{GIU'}{ 2 SIN} 

[< 2 B>] {GIU'H 2 SIN} [< 2 B>] {GIU'H 2 SIN} 

[< 2 B>] {GIU'H 2 SIN} [< 2 B>] {GIU'H 2 SIN} 

[< 2 B>]{GIU'}{ 2 SIN}[< 2 B>]{GIU*}{ 2 SIN} 

[< 2 B>] {HOME}" : rem 107 

FORI = l188T01 788STEP120:POKEI,110 :POKEI+54272,1 :NEXT 

:rem 127 

FORI=l268T01868STEP120:POKEI,125:POKEI+54272,1:NEXT 


POKEH+21,63 
FORT=0TO2000:NEXTT 

POKEl480,7:POKEl481,15:POKEl482,33 

12 


: rem 
: rem 
: rem 
: rem 


1 32 
111 
171 
196 



2962 

FORT=0TO500:NEXTT 

:rem 

128 

2963 

POKEl480,32:POKEl481,32:POKEl482,32 

:rem 

242 

2995 

FORI=l188T01788STEP120:POKEI,32:NEXT 

:rem 

30 

2996 

FORI=l268T01868STEP120:POKEI,32:NEXT 

:rem 

29 

3000 

REM **** CICLO GIOCO 

: rem 

42 

3005 

NU=INT(6*RND(0)):C=1:UN=INT(170*RND(0))+80 

:rem 

164 

301 0 

SYS49152 

: rem 

200 

3020 

N=INT(6*RND(0)) 

: rem 

81 

3040 

IFX(N)< 240ANDX(N)>30THENX(N)=X(N)+INT(2*RND(0)+2) 




:rem 

105 

3045 

SYS49152 

:rem 

208 

3047 

POKEH+2*N,X(N) 

: rem 

61 

3050 

IFX(N)>=240THENX(N)=X(N)+1 

: rem 

21 

3055 

IFX(N)=UNANDC=1THEN4000 

: rem 

170 

3060 

IFX(N)=252THENPRINTTl$;T2$:X(N)=255:POKEH+2*N,X(N):G 


OTO4500 

:rem 

94 

3080 

SYS49152 

:rem 

207 

31 20 

POKEH+2 *N,X(N) 

: rem 

53 

3130 

GOTO3010 

: rem 

196 

4000 

POKEH+12,X(NU):POKEH+13,PEEK(H+2*NU+1):POKEH+21,63-2 


TNU+64 

: rem 

186 

401 0 

FORSY=0TO35:SYS4 91 52:FORT=OTOl0:NEXTT:X(NU) 

=X(NU) 

-2: 


POKEH+12,X(NU):NEXTSY 

: rem 

• 11 

4020 

POKEH+21,63-2?NU:X(NU)=0:C=0:GOTO3010 

:rem 

21 2 

4500 

FORI = lT08:FORT=OTOl5:NEXTT:SYS4 91 52:NEXTI 

:rem 

250 

501 0 

GF=GF+1:PU=0:NU=0:UN=0 

: rem 

89 

5020 

FORCO=255TOl50STEP-1 

: rem 

236 

5030 

FORI=lT06 

: rem 

63 

5050 

IFPU=0THENPA=9 

: rem 

161 

5051 

IFPU=1THENPA=6 

: rem 

160 

5052 

IFPU=2THENPA=4 

: rem 

160 

5053 

IFPU=3THENPA=3 

: rem 

161 

5054 

IFPU=4THENPA=2 

:rem 

162 

5055 

IFPU=5THENPA= 1 

: rem 

163 

51 00 

IFCO = X ( I-1)THENK(I)=K(I)+PA:PS= 1 

:rem 

1 77 

51 60 

NEXTI:IFPS=1THENPU=PU+1:PS=0 

: rem 

138 

51 70 

NEXTCO 

: rem 

1 58 

51 80 

1 = 0 

: rem 

132 

51 90 

1=1+1 

:rem 

250 

5200 

IFI=7THEN5430 

:rem 

1 4 

521 0 

IFK(I)=9THEN52 50 

: rem 

173 

5220 

IFK(I)=6THEN54 00 

:rem 

168 

5230 

GOTO5190 

2 rem 

21 0 

5250 

FORG=1TOVAL(NG$) 

: rem 

248 

5260 

IFK(VAL(R$(G)))=9THENCA(G)=CA(G)+SC(G)*INT(10-P(I 

)/G 


F) 

: rem 

71 

5270 

NEXTG:GOT051 90 

2 rem 

150 

5400 

FORG=lTOVAL(NG$) 

2 rem 

245 

541 0 

IFK(VAL(R$(G)))=6THENCA(G)=CA(G)+SC(G)*INT((10-P(I)/ 


GF)/2) 

2 rem 

243 

5420 

NEXTG:GOT051 90 

2 rem 

147 
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5430 

FORI=lT06:P(I)=P(I)+K(I):NEXTI 

: rem 

96 

5450 

F0RI=1T06:K(I)=0:NEXTI 

: rem 

147 

5460 

FORI=1TOVAL(NG$):R$(I)="":NEXTI 

: rem 

138 

5500 

POKEH+21,0:PRINT"{CLR}":XU=0 

:rem 

29 

5920 

GOT07000 

:rem 

208 

6000 

GETF$: IFF$ = ""THENRETURN 

: rem 

21 1 

61 1 0 

IFF$ = "{Fi }"ANDZ = 1THENl 690:REM GARA 

:rem 

1 54 

61 20 

IFF$="{F3}"ANDZ=1THEN7000:REM CLASSIFICA 

AUTO 

:rem 

131 

61 30 

IFF$ = ,, {F5} ,, ANDZ = ! ANDXU=0THEN9000 :REM SCOMMESSE 

: rem 

24 

61 40 

IFF$="{F7}"ANDZ=0THEN8000:REM OPZIONI 

: rem 

164 

61 50 

IFF$="{ F8 }"THENCLRsRUN 

: rem 

17 

61 60 

GOTO6000 

: rem 

204 

6999 

REM * * * *CLASSIFICA* * * * 

2 rem 

231 

7000 

POKE53281,0:POKE53280,0 

2 rem 

28 


7005 PRINT"{CLR}{GIU'}{RVS}[<7>]{ 2 DES}£{ 2 SPAZI}{DES} 

{ 3 DES}£ [<*>]{DES}£{ 2 SPAZI}{DEST£{ 2 SPAZI}{DES} 
{DES}{ 3 SPAZI}{DEST {DES}£{ 2 SPAZI}{DES}£ [<*>]" 

:rem 26 

7010 PRINT"{RVS}{ 2 DES} { 3 DES} { 3 DES} {DES} {DES} 

{ 3 DES} { 3 DES} {DES} { 3 DES} {DES} { 3 DES} 

{DES} " :rem 128 

7020 PRINT"{RVS}{ 2 DES} { 3 DES} { 3 DES}{ 3 SPAZI}{DES} 
{ 3 SPAZI}{DES}{ 3 SPAZI}{DES} {DES}{ 2 SPAZI} 

{ 2 DES} {DES} { 3 DES}{ 3 SPAZI}" : rem 182 

7030 PRINT"{RVS}{ 2 DES} { 3 DES} { 3 DES} {DES} 

{ 3 DES} { 3 DES} {DES} {DES} { 3 DES} {DES} 

{ 3 DES} {DES} " :rem 130 

7040 PRINT"{ 2 DES}[<*>]{RVS}{ 2 SPAZI}{DES}{OFF}[<*>] 
{RVS}{ 2 SPAZI}{DES} {DES} {DES}{ 2 SPAZI}{OFF}£ 


{DES}{RVS}{ 2 SPAZI}{OFF}£{RVS}{DES} {DES} { 3 DES} 

f r\-E»o 1 f 1 f ✓ + \ 1 f m t c* 1 f O r»-rj t 1 f C \ i O 1 II * 



{DES}{OFF}[<*>]{RVS}{ 2 SPAZI}{DES} {DES} 

Il * 

2 rem 

224 

7090 

H=53248:W=1 

2 rem 

90 

71 00 

FORI = 111TOl11+24*6STEP24 2POKEH+W,12W=W+2 2NEXT 

2 rem 

52 

711 0 

POKEH+21,63 

2 rem 

99 

71 20 

FORN=0TO5: X(N)=35:NEXT 

2 rem 

147 

71 30 

FORI=0TOl0STEP2:POKE53248+I,35:NEXT 

2 rem 

202 

71 40 

POKEH+39,7:POKEH+40,5:POKEH+41,2:POKEH+42, 

1:POKEH+43 


,6:POKEH+44,15 

2 rem 

1 51 

7200 

PRINT"{HOME}{ 8 GIU'}{ 6 DES}{YEL}1 - - 


• • • • 


... " ; p ( 1 ) 

2 rem 

250 

721 0 

PRINT"{ 2 GIU'}(GRN}{ 6 DES}2 - . 


Il . P 
• f * 


(2) 

2 rem 

4 

7220 

PRINT" { 2 GIU'H 6 DES} {RED} 3 - . 


;P 


(3) 

2 rem 

5 

7230 

PRINT"{ 2 GIU'}{ 6 DES}{WHT}4 - . 


Il • p 
• t * 


(4) 

2 rem 

241 
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7240 

PRINT" { 2 GIU'H 6 DES } {BLU} 5 . 


Il . T> 
• / * 


(5) 

: rem 

14 

7250 

PRI NT" { 2 GIU’H 6 DES} [<8>] 6 - . 


Il • D 
• / ? 


(6) 

: rem 

141 

7300 

PRINT"{HOME}{ 5 GIU'}" 

: rem 

3 

731 0 

FORI=lT06 

:rem 

66 

7320 

PRINT"{ 2 GIU'}{ 10 DES} " ; A$(I) 

: rem. 

27 

7340 

NEXT 

: rem 

13 

7500 

FORT=0TO7000:NEXT:POKEH+21 ,0 

:rem 

242 

7560 

PRINT"{CLR}":IFGF-1=CGTHENl 3000 

: rem 

21 2 

7600 

GOTOl0000 

: rem 

247 

8000 

REM ***** OPZIONI ****** 

:rem 

1 62 

801 0 

Z = 1:POKE53280,2:POKE53281,2 

:rem 

36 

8030 

PRINT"{CLR}{YEL}{GIU'}{DES}INSERIMENTO NOME 

PILOTI O 


SCUDERIE AUTO [S/N]{ 3 GIU'}" 

: rem 

223 

8040 

GETR$:IFR$=""THEN8040 

: rem 

221 

8050 

IFR$="N"THEN8500 

2 rem 

157 

8060 

IFR$ <>"S"THEN804 0 

:rera 

223 

8065 

PRINT"{CLR}{GIU' }" 

: rem 

72 

8070 

FORI=1T06 

2 rem 

70 

8080 

PRINT" { 2 DES}{GIU’ } AUTO #";I 

2 rem 

204 

8090 

INPUTA$(I) 

2 rem 

96 

81 00 

IFLEN(A$(I))>10THENI=I-1:PRINT"{SU}{ 26 SPAZI} 



{ 3 SU}" 

2 rem 

209 

81 1 0 

NEXT 

2 rem 

9 

8500 

IFA$ (1 ) =" "THENA$ (1 ) ="GIALLA" 

2 rem 

5 

851 0 

IFA$(2) =" "THENA$(2) = "VERDE" 

2 rem 

21 2 

8520 

IFA$(3) =" "THENA$(3) = "ROSSA" 

2 rem 

233 

8530 

IFA$(4) =" "THENA$(4)="BIANCA" 

2 rem 

2 

8540 

IFA$(5) =" "THENA$(5)="BLU" 

2 rem 

74 

8550 

IFA$(6) =" "THENA$(6)="GRIGIA" 

2 rem 

29 

8600 

PRINT"{CLR}{YEL}{GIU' } {DES}NUMERO GIOCATORI 

?" 

• 

2 rem 

1 80 

861 0 

GETNG$ : IFVAL ( NG$ )< 1ORVAL ( NG$ ) >8THEN861 0 

2 rem 

1 41 

8620 

FORI = 1TOVAL ( NG$ ) 

2 rem 

254 

8630 

PRINT"{GIU' } GIOCATORE #";I 

2 rem 

247 

8635 

CA ( I ) =1000 

2 rem 

242 

8640 

INPUTG$(I):IFLEN(G$(I))>10THENI=I-1:NEXTI 

2 rem 

34 

8645 

NEXTI 

2 rem 

95 

8650 

PRINT"{CLR}{DES}{GIU'}NUMERO GARE 

2 rem 

148 

8670 

PRINT"{ 2 GIU'}{RVS}A{OFF} ={ 2 SPAZI}!" 

2 rem 

27 

8680 

PRINT"{GIU'}{RVS}B{OFF} ={ 2 SPAZI}5" 

2 rem 

16 

8690 

PRINT"{GIU'}{RVS}C{OFF} = 10" 

2 rem 

62 

8700 

PRINT"{GIU' } {RVS}D{OFF} = 15" 

2 rem 

60 

871 0 

GETGA$ : IFGA$ = "" THEN8 710 

2 rem 

81 

8720 

IFGA$ = " A"THENCG=1 :GOTO8770 

2 rem 

62 

8730 

IFGA$="B"THENCG=5:GOTO8770 

2 rem 

68 

8740 

IFGA$="C"THENCG=10:GOTO8770 

2 rem 

114 

8750 

IFGA$ = "D"THENCG=15 

2 rem 

48 

8760 

IFGA$ <> "D"THEN8710 

2 rem 

17 

8770 

PRINT"{CLR}":GOTOl 0000 

2 rem 

158 


15 






9000 REM **** SCOMMESSE **** :rem 172 

9010 XU=1:POKE53281 , 5:POKE53280,5 :rem 126 

9100 PRINT"{CLR}{BLK}{GIU'}{ 4 DES}{RVS} [<F>]{DES} [<F>] 
{DES} [<I>] {DES} [<*>]£ {DES} [<*>]£ {DES} [<F>] 
{DES} [<F>] {DES} [<F>] {DES} ‘ [<F>]" : rem 81 

9110 PRINT"{ 4 DES}{RVS} { 2 DES} { 2 DES} {DES} {DES} 

{OFF}[<*>]£{RVS} {DES} {OFF}[<*>]£{RVS} {DES} {OFF} 
[<F>]{RVSJIDES} { 2 DES} { 2 DES} {OFF}[<F>]" 


:rem 159 

9120 PRINT"{ 4 DES}{RVS}{DES} {DES} { 2 DES} {DES} {DES} 

{ 2 DES} {DES} { 2 DES} {DES} { 3 DES} { 2 DES} 

{DES} " : rem 45 

9130 PRINT"{ 4 DES}{RVS}[<C>] {DES} [<V>]{DES} {OFF}[<I>] 
{RVS} {DES} { 2 DES} {DES} { 2 DES} {DES} [<V>]{DES} 



[<C>] {DES}[<C>] {DES} [<V>]" 

: rem 

52 

9200 

PRINT"{GIU'{QUOTAZIONI AUTO 

: rem 

51 

921 0 

FORI=1T06 

: rem 

67 

9220 

PRINTI;" -{ 2 SPAZI}";A$(I) ,, INT(10-P(I)/GF):NEXTI 



: rem 

1 9 

9230 

FORJ=1TOVAL(NG$) 

2 rem 

253 

9235 

IFCA(J)=0THEN9650 

2 rem 

241 

9240 

PRINT" {HOME} { 15 GIU'H 10 SPAZI}{ 10 SIN} 

";G$(J) 

II 

i t . 


$";CA(J);"{SIN}{ 5 SPAZI}" 

2 rem 

75 

9250 

PRINT"SU QUALE AUTO ? [N']{SU}" 

2 rem 

247 

9260 

GETR$(J):IFVAL(R$(J))<lORVAL(R$(J))>6THEN9260 




2 rem 

1 51 

9270 

PRINT"QUANTO ?{ 14 SPAZI}" 

2 rem 

1 86 

9500 

FORS=lT04 

2 rem 

77 

951 0 

GETS$(S):IFS$(S)=""THEN9510 

2 rem 

45 

9520 

IFASC(S$(S))=13THEN9600 

2 rem 

65 

9530 

IFASC (S$(S))=20ANDS>0THENPRINT"{SIN} {SIN} 

2 S=S- 

1 :G 


0T09510 

: rem * 

8 

9540 

PRINTSS(S);JNEXTS 

2 rem 

129 

9600 

SC$=S$ ( 1 ) +S$ { 2) +S$ ( 3) +S$ ( 4) 

2 rem 

49 

9605 

PRINT:PRINT"{SU}{ 6 SPAZI}{SU}{ 6 SIN}{ 10 

SPAZI} 



{SU}" 

2 rem 

205 

961 0 

SC(J)=VAL(SC$) :SC$ = "" 

2 rem 

161 

9620 

IFSC (J)>1 000ORSC(J)>CA(J)THENJ=J-1 :NEXTJ 

2 rem 

224 

9630 

CA ( J)=CA(J)-SC(J) 

2 rem 

1 71 

9650 

NEXTJ 

2 rem 

93 

9700 

PRINT"{CLR}":GOTOl0000 

2 rem 

1 52 

10000 FORI=0TO8 

2 rem 

1 05 

1 001 0 FORV= 1 224+6T01 224+33:POKEI*40+V,160:POKEI 

*40+V+5427 


2,7:NEXT 

2 rem 

227 

10020 NEXTI 

2 rem 

123 


10030 IFZ=1THENPRINT"{HOME}{ 6 GIU'H 7 DES}{RVS}{YEL}[Fi 

].INIZIO GARA" : rem 85 

10040 IFZ=1THENPRINT"{RVS}{GIU'}{ 7 DES}[F3].CLASSI 

FICA AUTO" :rem 184 

1 0050 IFZ = 1ANDXU = 0THENPRINT"{RVS}{GIU'}{ 7 DES}[F5]. 

. SCOMMESSE" :rem 96 
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1 0060 


IFZ=OTHENPRINT"{RVS}{YEL}{SU}{ 7 DES}[F7] 


.OPZIONI" : rem 104 

1 0070 IFZ = 1THENPRINT"{RVS}{GIU'}{ 7 DES}[F8].PER RIC 

OMINCIARE" : rem 227 

11100 POKE49523,5 :POKE49524,35 :POKE4 9525,5:POKE49526,12 :P 
OKE4 952 8,1 :rem 54 

11110 POKE49522,3 :rem 136 

1 1 200 FORT=lTOl 500:NEXT : rem 127 

11210 SYS49152:SYS49152 :rem 55 

11220 GOSUB6000:GOTOl1200 :rem 163 

1 3000 REM **** THE END **** : rem 224 

13010 POKEH+21 ,0 :PRINT"{CLR}{WHT}":POKE532 80,14:POKE53281 
,6 :rem 195 

13020 PRINT"{GIU'}{ 3 DES}CLASSIFICA FINALE :{ 2 GIU'}" 

: rem 1 2 

1 3030 FORI = lTOVAL(NG$) : rem 37 

13040 PRINT"{GIU'};G$(I),,CA(I):NEXT :rem 54 

13050 PRINT"{ 3 GIU'}PREMl{ 2 SPAZl}'@'{ 2 SPAZI}PER INIZ 

IARE" : rem 74 

1 3060 GETM$:IFM$<>"@"THENl 3060 : rem 172 

13070 CLR:RUN :rem 11 



In questo magnifico gioco hai il 
compito di uccidere un ragno 
radioattivo con il tuo laser. Devi 
cercare di andare sopra il ragno 


con il mirino e sparare. 

Occhio però, bisogna fare il più 
presto possibile perché... non sei 
un ospite gradito!! 


1 000 

REM*** IL RAGNO *** 

: rem 

1 73 

1 005 

REM*** PAPERSOFT *** 

: rem 

90 

1010 

PRINTCHR$(147):GOSUBl930 

: rem 

1 96 

1 020 

POKE53280,0:POKE53281,0 

: rem 

24 

1 030 

REM 

: rem 

1 68 

1 040 

FORI = 4 91 83T04 94 78:READJ 

: rem 

1 42 

1 050 

POREI,J:CC=CC+J:NEXTI 

: rem 

1 10 

1 060 

READJ : IFCCOJTHENP RI NT "ERRORE NELLE 

DATA": END 




: rem 

1 70 

1 070 

SYS(49183) 

: rem 

33 

1 080 

REM 

: rem 

1 73 

1 090 

FORI=0TO62:READJ:POKE1+832,J:NEXTI 

: rem 

196 

1 1 00 

FORI = 0TO62:READJ:POKEI + 8 96,J:NEXTI 

: rem 

1 98 
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ino 

REM 

: rem 

167 

1120 

POKE491 52,40:POKE491 53,0 

:rem 

83 

1130 

POKE4 9156,255:POKE4 91 57,0 

: rem 

1 48 

1 1 40 

P0KE4 9160,62: P0KE4 91 61 ,0 

: rem 

87 

1150 

POKE491 64,21 3:POKE491 65,0 

: rem 

1 42 

1160 

POKE49168,0:POKE491 77,0 

: rem 

48 

11 70 

POKE491 69,100:POKE491 70,0 

:rem 

140 

1180 

POKE4 91 73,150 JPOKE491 74,0 

:rem 

145 

1 1 90 

REM 

: rem 

175 

1 200 

POKE204 0,13:POKE2041 ,14:VC=53248 

:rem 

31 

1 21 0 

POKEVC+23,2 

:rem 

122 

1 220 

POKEVC+29,2 

: rem 

1 29 

1 230 

POKEVC+2,150:POKEVC+3,150 

: rem 

207 

1 240 

REM 

: rem 

171 

1 250 

S=54272:FORI=0TO24:POKES+L,0:NEXTI 

: rem 

141 

1 260 

POKES+24,15 

:rem 

1 1 0 

1 270 

POKES+5,41 :P0KES + 6,89 

: rem 

247 

1 280 

POKES+19,31:POKES+20,240 

2 rem 

125 

1 290 

POKE782,7:POKE781,18:SYS65520 

2 rem 

21 6 

1 300 

PRINTCHR?(30)"PREMI UN TASTO PER GIOCARE" 

2 rem . 

21 4 

1310 

GETA$:IFA$ = ""THENl 31 0 

2 rem 

173 

1 320 

PRINTCHR$(147) 

2 rem 

65 

1 330 

REM 

2 rem 

171 

1 340 

PRINTCHR$ (1 9)CHR$ (28)CHR$ (17) 

2 rem 

135 

1 350 

FORK=lT022 

2 rem 

1 1 2 

1 360 

PRINT"{ 40 V}" 

2 rem 

1 1 

1 370 

NEXTK 

2 rem 

85 

1 380 

FORI=0TO39:POKE55336+I,5 

2 rem 

188 

1 390 

POKEl064+1,160:NEXTI 

2 rem 

192 

1 400 

FORI=0TO39:POKE56256+I,5 

2 rem 

1 83 

1 41 0 

POKEl984+1,160:NEXTI 

2 rem 

196 

1 420 

FORI=0TO22*40STEP40 

2 rem 

1 53 

1 430 

POKE55376 + 1,5 :POKEl 1 04 + 1,1 60 

2 rem 

60 

1 440 

POKE55415+1,5:POKEl143+1,160 

2 rem 

58 

1 450 

NEXTI 

2 rem 

82 

1 460 

POKEVC+21,3 

2 rem 

128 

1 470 

POKEVC+39,1 :POKEVC+40,7 

2 rem 

1 24 

1 480 

DX=4:DY=4:GOSUBl660 

2 rem 

169 

1 490 

LI= 1 5 

2 rem 

6 

1 500 

REM 

2 rem 

170 

1510 

PX=PEEK(49169):PY=PEEK(49173) 

2 rem 

205 

1 520 

POKEVC+0,PX:POKEVC+1 ,PY 

2 rem 

242 

1 530 

NP = NP+1:F = PEEK(491 77) 

2 rem 

221 

1 540 

IFNP>LITHENGOSUBl660 

2 rem 

70 

1 550 

POKEVC+2,TX:POKEVC+3,TY 

2 rem 

1 

1 560 

POKEVC+30,0:POKE49177,0 

2 rem 

79 

1 570 

IFF=1ANDPEEK(VC+30)ANDl=1 THENl710 

2 rem 

234 

1 580 

IFED=3THENl850 

2 rem 

83 

1 590 

PRINTCHR$(19)CHR$(5)"PUNTI :"SE 

2 rem 

69 

1 600 

IFSE>HITHENHI=SE 

2 rem 

82 

1 61 0 

PRINTCHR$(19)TAB(25)"REC:"HI 

2 rem 

137 
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1 620 

TX=TX+DX:IFTX< 40ORTX> 2 50THENDX=-DX 

: rem 

45 

1 630 

TY=TY+DY: IFTY<620RTY>21 3THENDY—DY 

: rem 

56 

1 640 

GOTOl510 

:rem 

203 

1 650 

REM 

: rem 

176 

1 660 

TX=INT(RND(TI)*210+40) 

: rem 

16 

1 670 

TY=INT(RND(TI)*151+62) 

: rem 

26 

1 680 

POKEVC+2,TX:POKEVC+3,TY 

: rem 

5 

1 690 

NP=0:LI=LI-1:IFLI<1THENED=ED+1:LI=15 

:rem 

241 

1 700 

RETURN 

:rem 

168 

1 71 0 

REM 

: rem 

1 73 

1 720 

POKEVC+21,2:SE=SE+INT(500/LI)+NP 

: rem 

174 

1 730 

FORT=128TO!STEP-7:POKEVC+40,T 

: rem 

99 

1 740 

POKEVC+29,0 

: rem 

134 

1 750 

POKES + 4,33 :POKES + O,T:POKES+1 ,T+127 

:rem 

52 

1 760 

POKES+18,33:POKES+15,T+7:POKES+1 4,T+l 27 

:rem 

54 

1 770 

POKEVC+29,2 

: rem 

139 

1 780 

NEXT:POKEVC+21,1 

: rem 

252 

1 790 

POKES+4,0:POKES+18,0 

: rem 

186 

1 800 

FORK=lTOl000:NEXT 

: rem 

70 

1 81 0 

GOSUBl660 

: rem 

23 

1 820 

POKE4 91 77,0:POKEVC+4 0,7 

: rem 

86 

1 830 

POKEVC+21,3:NP=0 

2 rem 

1 98 

1 840 

GOTOl510 

2 rem 

205 

1 850 

POKEl98,0 

2 rem 

251 

1 860 

PRINTCHRS ( 1 9) CHR$ (17) CHR$ (17) CHR$ (17) 

2 rem 

70 

1 870 

PRINTTAB(14)”-GAME{ 2 SPAZI}OVER-"CHR$(17) : rem 

152 

1 880 

PRINTTAB(7)"PREMI UN TASTO{ 2 SPAZI}PER 

GIOCARE" 




2 rem 

1 41 

1 890 

GETA$:IFA$ = ""THENPOKE646,INT(RND(TI)*1 5) 

:GOTOl860 



2 rem 

208 

1 900 

PRINTCHRS(147):POKEVC+21,0 

2 rem 

49 

1 91 0 

NP=0:ED=0:SE=0 

2 rem 

69 

1 920 

PRINTCHRS(147):GOTOl330 

2 rem 

129 

1 930 

REM 

2 rem 

177 

1 94 0 

PRINTCHRS(30) 

2 rem 

16 

1 950 

PRINTTAB(14)"IL RAGNO" 

2 rem 

57 

2090 

RETURN 

2 rem 

171 

21 00 

DATAI 20,1 73,20,3,141,29,1 92,173,21 

2 rem 

1 55 

21 1 0 

DATA3,141 ,30,192,169,71,141 ,20,3 

2 rem 

57 

21 20 

DATAI 69,192,141 ,21 ,3,88,96,1 20,1 73 

2 rem 

180 

21 30 

DATA29,1 92,141 ,20,3,173,30,192,141 

2 rem 

1 62 

21 40 

DATA21,3,88,96,173,27,192,205,16 

2 rem 

84 

21 50 

DATAI 92,240,3,76,65,193,169,2 55 

2 rem 

44 

21 60 

DATAI 41,27,192,1 62,0, 160,0,1 85,2 

2 rem 

62 

21 70 

DATA220,141,28,192,169,224,153,2 

2 rem 

75 

21 80 

DATA22 0,! 85,0,220,72,173,28,1 92 

2 rem 

25 

21 90 

DATAI 53,2,220,1 89,8, 1 92,221 ,21 ,1 92 

2 rem 

175 

2200 

DATAI 89,9,192,253,22,1 92,144,1 8 

2 rem 

37 

221 0 

DATAI 89,8, 1 92,1 57,21 ,1 92,1 89,9,1 92 

2 rem 

200 

2220 

DATAI 57, 22,1 92,104,74,72,76,1 62 

2 rem 

32 

2230 

DATAI 92,104,74,72,176,1 3,2 22, 21 

2 rem 

21 
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2240 DATAI 92,189,21 ,1 92,201 ,255,208,3 
22 50 DATA222,22,192,189,21 , 1 92,221 ,1 2 
2260 DATAI 92,1 89,22,1 92,253,1 3,1 92,1 44 
22 70 DATAI 8,1 89, 1 2,192,1 57,21 ,1 92,1 89 
2 2 80 DATAI 3,1 92,1 57,22,1 92,1 04,74,72,76 
2290 DATA207,192,104,74,72,176,8,254,21 
2 300 DATAI 92,208,3,254,22,1 92,1 89,0,1 92 
2 310 DATA221 , 1 7,192,1 89,1,1 92,253,1 8 
2 32 0 DATAI 92,1 44,1 8,1 89,0,1 92,1 57,1 7 
2 330 DATAI 92,1 89,1 ,192,1 57,1 8,1 92,1 04 
2 34 0 DATA74,72,76,1 ,193,104,74,72,1 76 
2 350 DATAI 3,222,1 7,1 92,1 89,1 7, 1 92,201 
2 360 DATA2 55,20 8,3,222,1 8,1 92,1 89,1 7 
2 370 DATAI 92,221 ,4,1 92,1 89,1 8,1 92,253,5 
2 380 DATAI 92,1 44,18,1 89,4,1 92,1 57,1 7 
2390 DATAI 92,1 89,5, 1 92,157,1 8, 1 92,1 04 
2400 DATA74,72,76,46,193,104,74,72,176 
2410 DATA8,254,17,192,208,3,254,18,192 
2 42 0 DATAI 04,74,1 76,5, 1 69, 1,1 53,25,1 92 
2430 DATA200,232,232,224,4,240,3,76,91 
24 4 0 DATAI 92,238,27, 192,10 8,29,1 92 
2450 DATA35994:REM*CHECKSUM* 

2460 REM 

2470 DATAO,0,0,31,1,240,24,0,48,20,0,80 
2480 DATAI 8,0,144,1 7,41,16,0,1 70,0,0 
24 90 DATAI 08,0,1,239,0,0,0,0,1,239,0,0 
2 500 DATAI 08,0,0,1 70,0,1 7,41,16, 18,0 
2510 DATAI 44,20,0,80,24,0,4 8,31 , 1,240 
2520 DATAO,0,0,0,0,0,0,0,0 
2530 REM 

2540 DATAO,0,0,0,0,0,0,0,0,24,97,128 
2 550 DATAI 02,246,96,1 29,21 6, 1 6, 1 5,1 27 
2560 DATAO,51,236,192,199,190,48,30,247 
2 570 DATAI 28,99,252,96,1 30,1 00,1 6, 1 5 
2 580 DATAI 1 1,0,48,240,1 92,65,1 04,32,1 30 
2590 DATA4,16,128,0,16,0,0,0,0,0,0,0,0 
2600 DATAO,0,0,0 


:rem 79 
:rem 70 
:rem 137 
:rem 97 
:rem 185 
:rem 185 
:rem 177 
:rem 31 
:rem 38 
:rem 88 
: rem 89 
:rera 79 
:rem 39 
:rem 189 
:rem 48 
:rem 98 
:rem 143 
: rem 133 
:rem 130 
: rem 111 
:rem 202 
: rem 184 
: rem 176 
:rem 130 
: rem 2 
:rem 84 
:rem 251 
:rem 46 
:rem 243 
: rem 174 
:rem 234 
:rem 84 
:rem 189 
:rem 35 
:rem 163 
:rem 71 
:rem 38 


20 



Il fantasma del teatro 


V 


Come avevamo promesso la scor¬ 
sa settimana, pubblichiamo la pri¬ 
ma parte dell'Adventure Game 
(cioè un sioco basato sul dialogo 
"parlato" con il computer) IL FAN¬ 
TASMA DEL TEATRO. La vicenda 
da cui il gioco si sviluppa è am¬ 
bientata in un lugubre teatro. Il C64 
impersona il protagonista del gio¬ 
co, che deve sfuggire a numerosi 
pericoli, tra cui un custode scrupo¬ 


loso e un terribile fantasma, fino ad 
arrivare a un misterioso tesoro. Il 
programa è stato suddiviso in tre 
parti; le altre due verranno pubbli¬ 
cate sui prossimi due numeri della 
tua rivista. 

Non ti forniamo maggiori dettagli 
sul programma proprio per non ro¬ 
vinarti le (piacevoli!) sorprese che 
questa avventura, senz'altro di 
qualità eccellente, ti riserverà. 


1 REM * IL FANTASMA DEL TEATRO * : rem 237 

2 REM * (C) 1985 PIERGIORGIO FUSCO * :rem 149 

5 GOTOl00( i : rem 95 

6 PRINT:PR. NTCHR$(14)CHR$(158)"PREMI{SPAZI}RETURN.":POKEl 



98,0 

: rem 

135 

7 

GETA$:IFA$ <>CHR$(13)THEN7 

: rem 

64 

1 0 

POKEl98,0:POKE532 69,0 :GOTO9000 

: rem 

1 52 

1 1 

H=H+INT(H/10)*6 :POKE56587,H:M=M+INT(M/l 0)*6:POKE56586, 


M:POKE56584,0 :RETURN 

: rem 

74 

1 4 

FORT=lTO400:NEXT:RETURN 

: rem 

21 6 

1 5 

FORT=1TO2 0 0 0 :NEXT: RETURN 

: rem 

7 

1 6 

FORT=lTO5000:NEXT:RETURN 

: rem 

1 1 

20 

NO=0:EA=0:SO=0:WE=0:UP=0:DO=0 

: rem 

1 71 

30 

ONSEGOSUBl100,1200,1300,1400,1500, 

1600,1700,1800,1900, 


2000 :IFSE<11THEN50 

: rem 

239 

31 

ONSE-1OGOSUB2100,2200,2300,2400,2500,2600,2700,2800 

,29 


00,3000:IFSE<21THEN50 

: rem 

137 

32 

ONSE-20GOSUB3100,3200,3300,3400,3500,3600,3700,3800 

,39 


00,4000 

: rem 

1 

50 

PRINTL$:TR=0:FORN=1TO60:IFL(N)=SETHENPRINT"{ 2 SPAZI} 


"0$(N):TR=-1 

: rem 

171 

60 

NEXT:IFNV=3ANDNOTTRTHENNV=0:PRINT" 

NON VEDO NULLA DI 

SP 


ECIALE." 

: rem 

77 

70 

IF NO THENPRINT"NORD 

: rem 

1 29 

71 

IFSOTHENPRINT"SUD 

: rem 

64 

72 

IFEATHENPRINT"EST 

: rem 

37 

73 

IFWETHENPRINT"OVEST "; 

: rem 

225 

74 

IFUPTHENPRINT"SU 

: rem 

2 

75 

IFDOTHENPRINT"GIU' 

: rem 

85 

100 PRINT:GOSUB4200:IFCSTHENGOSUB41 00 

: rem 

1 1 3 
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101 IFSEO3THENNA=0 :rem 145 

105 PRINT:PRINTCHR$(159)"CHE COSA DEVO FARE?":GOSUB300:GO 


SUB4200 : rem 237 

1 07 IF1$="FINE"ORI$="BASTA"THENPRINT:PRINT"FINE.":G0T0893 



0 

: rem 

143 

1 08 

IFLEFT$(1$,2)="VA"THENPRINT" 

PRECEDIMI.":GOTOl00 

: rem 

239 

11 0 

LI=LEN(I$):IFLI<2THEN4300 

: rem 

1 95 

1 20 

GOTO500 

:rem 

97 

1 30 

ONNVGOT04800,4500,4800,4400, 

4450,4900,4600,4600, 

5000, 


5050 

: rem 

1 28 

1 31 

ONNV-10GOTO51 00,5100,51 50,5200,5300,5200,5400,5400,54 


50,5450 

:rem 

4 

1 32 

ONNV-20GOTO5500,5500,5600,5650,5700,5700,5750,5800,65 


00,5900 

: rem 

41 

1 33 

ONNV-30GOTO52 00,6000,61 00,61 50,6200,6250,6250,6300,63 


50,6400 

:rem 

16 

300 

I$=" ":QT=TI:QC=4 

: rem 

1 21 

31 0 

GETT$:IFT$>""THEN340 

:rem 

1 1 7 

320 

IFQT<TITHENPRINTMID$("{OFF} 

{OFF}{rvs} {OFF}",QC 

, 3) CH 


R$(157);:QC=5-QC:QT=TI+20 

:rem 

73 

330 

GOT0310 

:rem 

99 

340 

QA=ASC(T$):QL=LEN(1$):IF(QAANDl27)<32THENPRINT" ' 

"CHR$ 


(157);:GOTO370 

:rem 

1 68 

350 

IFQL>79THEN310 

: rem 

53 

360 

I$=I$+T$:PRINTT$CHR$(20)T$; 

: rem 

249 


370 IFQA=13ANDQL>1THENI$=MID$(I$,2):PRINTCHR$(13)CHR$(158 



); :GOTO400 

:rem 

221 

380 

IFQA=20ANDQL>1THENI$=LEFT$(I$,QL-1):PRINTCHR$(157) 

• 

f 



s rem 

56 

390 

GOTO310 

:rem 

105 

400 

IFLEFT$(1$,1)=" "THENI$=MID$(1$,2):GOTO400 

: rem 

8 

41 0 

RETURN 

: rem 

1 1 7 

500 

A$ =LEFT$(1$,4) :FORNV=1T04 0:1FA$ =V$(NV)THEN560 




: rem 

1 30 

530 

NEXT:FORN=lTOLI:IFMID$(I$,N,1)<>"{SPAZI}"THENNEXT 




: rem 

20 

540 

FORN=lTOLI:IFMID$(I$,N,1)<>" "THENNEXTN 

: rem 

74 

550 

PRINT"NON SO CHE VUOL DIRE ’"LEFT$(1$,N) 

. ":GOTOl00 



: rem 

253 

560 

B$ = "":PT=0:FORN=LITOlSTEP-1 

: rem 

1 24 

570 

IFMID$(1$,N,1)=" "ORMID$(I$,N,1)="’"THENB$ 

=MID$(1$ 

,N+ 


1,4): GOTO590 :rern 240 
580 NEXT : rem 220 
590 FORNU=0TO60:IFB$=LEFT$(0$(NU),4)THENPT=-1:GOTO630 


:rem 235 

600 NEXT : rem 213 

610 IFPTTHENPRINT"NON POSSO FARLO... PER ORA!":GOTO!00 

:rem 181 
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620 PRINT"NON CONOSCO LA PAROLA '"RIGHT$(1$,LI-N)" ' . " :GOT 
0100 :rem 148 

630 IFL(NU)=SEORL(NU)=0ORNU=55ORNU=33ORNU=0THENl 30 


: rem 


640 GOTO600 : 
700 PRINT"BENE.”:GOTOl00 : 
710 PRINT"NON CAPISCO.": GOTO!00 : 
720 PRINT"NON E' POSSIBILE.":GOTOl00 : 
730 PRINT"SI', MA CHE COSA?":GOTOl00 : 
740 PRINT"ODO UN MOTOREGOSUB8010 :GOTOl00 : 
750 PRINT"NON POSSO: NON L'HO CON ME!":GOTO100 : 
760 PRINT"STAI SCHERZANDO, SPEROGOTOl00 : 
770 PRINT"NON SUCCEDE NIENTE.":GOTOl00 : 
780 PRINT"NON E' UNA BUONA IDEA.":GOTOl00 : 
790 PRINT"GIA' FATTO, SMEMORATO!":GOTOl 00 : 
800 PRINT"TROPPO BUIO PER CAMMINARE!":GOTOl00 : 
810 PRINT"VEDO SOLO TENEBRE.":GOTOl00 : 
820 PRINT"FATTO.":GOTOl00 : 
830 PRINT"HAI PROPRIO DELLE STRANE IDEE.":GOTOl00 


rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 


: rem 

840 PRINT"DEVI ESSERE COMPLETAMENTE FOLLE.":GOTOl00 


209 
105 
52 
8 
29 
1 61 
88 
50 
234 
203 
229 
1 1 1 
1 49 
1 40 
155 

101 


:rem 78 

850 PRINT"NON HA MOLTO SENSO.":GOTOl00 :rem 167 

860 PRINT"SPIACENTE, NON C'E' SCRITTO NIENTE.":GOTOl00 

:rem 149 

1100 L$="SONO NELLA STANZA DEL CUSTODEWE=2 :RETURN 

:rem 40 

1 200 L$="SONO NELL'ATRIO." : rem 114 

1210 IFL(T)=2THENL$=L$+" DAL FINESTRINO DELLA{ 3 SPAZI}BI 
GLIETTERIA PROVIENE UNA LUCE." : rem 23 


1 220 
1 300 
1310 

1 320 
1 400 

1 41 0 

1 420 
1 500 

1 51 0 
1 520 
1 600 

1 61 0 
1 700 

1 71 0 


NO= 3 :EA=1 :UP= 8 : RETURN 
L$ = "SONO NELLA PLATEA." 
IFNATHENL$=L$+CHR$( 1 57) +", 
E." 

NO= 4 :SO= 2 : RETURN 
L$ = "SONO SUL PALCOSCENICO. 
{ 2 SPAZI}C'E' IL PALCO DI 
NO=5:SO=3:IFL(18)=0ORL(18) 


: rem 110 
:rem 197 
NASCOSTO TRA LE POL- TRON 

:rem 148 
:rem 57 

A EST, IN ALTO, 
PROSCENIO." : rem 29 

40RL(18)=12THENUP=12 


:rem 48 

RETURN :rem 167 

L$="SONO TRA LE QUINTE. '' : SO= 4 :EA= 6 : IFL ( 38) =5THENDO=7 


IFL(50)=5THENNO=19 
RETURN 

L$="SONO NEL CORRIDOIO DEI CAMERINI. SONO{ 
TUTTI CHIUSI TRANNE UNO." 

WE=5:EA=20:RETURN 

L$="MI TROVO NEL SOTTERRANEO DEL TEATRO.": 
THENSO=13:EA=1 5 
UP=5 : RETURN 


:rem 235 
:rem 61 
:rem 168 
3 SPAZI} 
:rem 78 
:rem 79 
IFL(56)=99 
:rem 197 
:rem 250 
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1 800 

1 81 0 

1 820 
1 900 

1 91 0 

1 920 
2000 

201 0 
2020 
21 00 

2200 

221 0 
2220 
2300 

2400 

2 500 

251 0 

2520 

2600 

261 0 
2620 
2700 


271 0 
2800 

281 0 

2900 

291 0 

2920 

3000 

301 0 
31 00 


L$ = "SONO NELLA GALLERIA DEL TEATRO. I PALCHISONO CHI 
USI" : rem 118 

L$=L$ + " TRANNE QUELLO CENTRALE.NO=l1 :DO=2 :IFL(43) = 
99THENUP=9 :rem 228 

RETURN : rem 171 

L$="SONO NEL LOGGIONE. IN ALTO C'E’ LA CUPO-LA. TRA 
LE TENEBRE SI INTRA" : rem 187 

L$ = L$ + "VEDE LA MASSADEL GRANDE LAMPADARIODO=8:IFL 
(36)=9THENUP=10 : rem 4 

RETURN : rem 172 

L$ = "SONO SULLA CUPOLA. E* DI STOFFA, LEGATA CON DEI 
TIRANTI AL TETTO." : rem 19 

DO=9 :NO=l 4 : IFN02THEN4000 :rem 2 

RETURN : rem 164 

L$ = "SONO NEL PALCO CENTRALE. C'E' UNA SOLA 
{ 2 SPAZI}POLTRONA.":SO=8:RETURN :rem 174 

L$ = "SONO NEL PALCO DI PROSCENIO. SU UNA POL-TRONA C' 
E' UNO SCHELETRO!" :rem 233 

IFL(18)=0ORL(18)=40RL(18)=12THENDO=4 :rem 89 

RETURN : rem 166 

L$ = "QUESTA E' LA BUCA DEL SUGGERITORE.":NO=7 :RETURN 

: rem 213 

L$="SONO NEL GRANDE LAMPADARIO DEL TEATROSO=10 : RE 
TURN : rem 70 

L$="SONO NEL DEPOSITO DEI COSTUMIIFL(40)=15THENNO 
= 22 :IFAGTHENNO=23 :rem 122 

WE=7:IFL(41)=15THENL$ =L$ + " UNA PARE-TE HA QUALCOSA D 
I STRANO." : rem 199 

RETURN :rem 169 

L$ = "SONO SU UNO STRETTO CORNICIONE. A SUD{ 3 SPAZI} 
VEDO UNA PICCOLA PORTA":EA=28 :rem 5 

IFH<12THENL$ =L$ + " CHIUSA.": RETURN :rem 255 

SO=26:L$=L$ + " APERTA.": RETURN : rem 220 

L$="SONO IN STRADA. L'USCITA SI E' CHIUSA.":IFL(15)= 
0THEN8580 :rem 233 

NO=27:RETURN :rem 39 

L$="SONO DAVANTI ALL'USCITA DI SICUREZZA. A EST C'E' 

IL LABIRINTO," : rem 173 

L$=L$ + " A OVEST LA STRA- DA !":EA=19 :WE=17 :RETURN 

:rem 191 

L$="SONO IN UN LABIRINTO DI CORRIDOI E PAS- SAGGI.": 
SO=5:WE=18 •:rem 250 

IFL(15)ORL(26)ORL(27)THENNO=l9:SO=l9:WE=19:EA=19 

:rem 133 

RETURN :rem 173 

L$ = "MI TROVO IN UN CAMERINO.":WE=6:IFL(51)=20THENNO= 
21 : rem 58 

RETURN :rem 164 

L$ = "SONO NELL’OFFICINA DEL TEATRO. IN UNA{ 3 SPAZI} 
PARETE C'E' UN INTERRUTTORE" : rem 195 

24 



31 1 0 

3200 

321 0 
3300 

331 0 
3400 

341 0 

3420 

3425 

3430 

3440 
3450 
3 500 

351 0 

3600 

361 0 
3700 
371 0 

3720 

3800 

381 0 
3900 

391 0 

3920 

4000 

4005 
401 0 
41 00 
4110 
41 1 5 
41 20 

41 40 
41 50 
41 60 


L$=L$ + " CHE SI PUÒ' ALZARE O ABBASSARESO=20 :RETUR 
N :rem 45 
L$ = "SONO NELLA TROMBA DELL'ASCENSORE. LA CA-BINA E' 

A MOLTI METRI" : rem 74 


L$=L$+" SOPRA DI ME.":SO=15 :RETURN 


rem 


1 89 


L$ = "SONO NELL'ASCENSORE.":SO=15:1FAG=0 ANDPPTHENSO= 0 : 
WE=24 :rem 0 

RETURN :rem 167 

L$="SONO SU UNA PASSERELLA DI SERVIZIO A MOLTI METRI 
D'ALTEZZA." :rem 242 

L$=L$+" DA UN LATO UNA CORDAPENDE VERSO IL BASSO.":I 
FL(31)=98THEN3430 :rem 32 

L$=L$+" A OVEST, POCHI ME-TRI OLTRE L'ABISSO, C'E' U 
N CORNICIONE." : rem 106 

WE=30:GOTO3440 :rem 72 

L$=L$+" LA TRAVE E’ POSATATRA PASSERELLA E CORNICION 


1 97 
222 
1 72 
E T 
70 


: rem 
: rem 
:rem 

NOTTEBUIA 
: rem 
MOLTO FREDDO.": 

: rem 144 
NEL PUN-TO PIU' 

: rem 1 7 
: rem 170 


E.":WE=28 

EA=2 3 :IFL(46)=24THENUP=2 5 
RETURN 

L$="SONO SUL TETTO. NON E' LA CLASSICA 
EMPESTOSA: IL CIELO E" 

L$=L$+"' SERENO E STELLATO. PERO' FA 
DO= 2 4 :TT= HM+3 :RETURN 

L$ = "MI TROVO IN UNA PICCOLA STANZA, 

ALTO DEL TEATRO.":NO=16 
RETURN 

L$ = "SONO DAVANTI ALLA PORTA DI CASA.":NO=29 : rem 115 
IFL(20)THENNO=0:L$=L$+" NON POSSO ENTRARE: NON HO PI 
U' LA MIA CHIAVE!" : rem 110 

SO=l7 :RETURN . :rem 45 

L$="BARCOLLO SULLA TRAVE TRA LA PASSERELLA EIL CORNI 
CIONE. SCRICCHIOLA!" :rem 163 

EA= 30 :WE=16 :RETURN :rem 134 

L$="FINALMENTE A CASA!"+CHR$(13):IFL(24)=29THENL$=L$ 
+ "A TERRA C'E' UN..." : rem 236 

IFL(24)<>29THENL$=L$ + "MA HAI DIMENTICATO QUALCOSA!" 


: rem 

RETURN : rem 

PRINT" TRO { 2 P}0... QUALCOSA SI E' SPEZZATO!" 

: rem 

PRINT:PRINT"STO PRECIPITANDO!”:PRINT:PRINT :rem 


:rem 
: rem 
: rem 
: rem 


GOSUB80 50 :GOTO8900 
IFC=SETHENGOSUB4160 
C=C+DC:IFC>6THENC=6:DC=-1 
IFC=SETHENGOSUB4160 
,IFC< 1 THENC= 1 :DC=1 :SC=SC+1 : IFSC=3THENGOSUB41 80 

: rem 

IFABS(C-SE)=1THEN:PRINT"SENTO DEI PASSI!" :rem 
RETURN : rem 

PRINT"C'E' QUALCUNO!":IFL(1)=OORNOTNATHEN8 850 

: rem 


138 

174 

5 

8 

86 

230 

252 

236 

95 
171 
1 70 

1 64 


25 



4170 RETURN -.rem 172 

41 80 L(3)=99:L(19)=1 :L(49)=99 :IFPBTHENCS=0:L(54)=1 

«rem 41 

4185 IFL ( 5) =1 THENL (5) =99 :rem 81 

4190 RETURN :rem 174 

4200 H=(INT(PEEK(56587)/1 6)*1 0+PEEK(565 87))ANDl5 : rem 103 

4201 M=INT(PEEK(565 86)/!6)*10+(PEEK(56586)ANDl 5) :D=PEEK(5 

6584) :HM=H*60+M : rem 4 

42 04 IFSE= 25ANDHM>TTTHENPRINT"SPIACENTE, SONO MORTO ASSID 

ERATO.":GOTO8900 :rem 92 

4205 IFHM< 695THENRETURN : rem 222 

4210 IFTC=0THEN4260 : rem 85 

4220 IFHM<720THENRETURN :rem 208 

4230 IFPM=0THENPM=-1 :PP = 2 :GOSUB8200 : IFSE025THEN8700 

: rem 214 

4240 IFHM<723THENRETURN :rem 213 

4245 IFSM=0THENSM=-1 : IFSE026THEN8700 :rem 22 

4250 IFAF=0THENAF=-1:GOTO8300 : rem 221 

4255 IFHM<73OTHENRETURN : rem 217 

4 2 56 PRINT"E' TARDI E SONO STANCO. BUONA NOTTE.": GOTO8900 

:rem 109 

4260 IFTE=0THENTE=-1:IFL(1)=0THENPRINT"LA TORCIA SI E' ES 
AURITA!" : rem 30 

4270 IFL(1)=0ORL(13)=0THENL(13)=0:L(1)=99 :rem 250 

4280 IFL ( 1 ) 099THENL (13)=L(1) :L(1 ) =99 : rem 9 

4290 GOTO4220 : rem 208 

4300 IFI$ = "I"THEN4 380 :rem 139 

4310 IFL(30)=0ORL(31)=0THENPRINT"CON QUESTO PESO NON POSS 

O MUOVERMI!”:GOTO!00 :rem 99 

4320 IFL ( 1 ) ANDSE03THEN800 : rem 5 

4330 IFI$ = "N"AND NO THENSE=NO:GOTO20 : rem 123 

4340 IFI$="S"ANDSOTHENSE=SO:GOTO20 :rem 139 

4350 IFI$ = "E"ANDEATHENSE=EA:GOTO20 : rem 70 

4360 IFI$="0"ANDWETHENSE=WE:GOTO20 :rem 125 

4370 PRINT"HAI SPRECATO UNA MOSSA.": GOTO!00 :rem 235 

4380 PRINT"INVENTARIO:":TR=0:FORN=lTO60:IFL(N)=0THENPRINT 
"{ 2 SPAZI}"0$(N):TR=-1 :rem 58 

4390 NEXT:IFNOTTRTHENPRINT"NON HO NULLA CON ME.":rem 141 

4395 GOTOIOO :rem 159 

4400 IFL(1)THEN800 :rem 236 

4410 IFSE=4THENGOSUBl400 :rem 213 

4420 IFUPTHENSE=UP:GOT020 :rem 124 

4430 PRINT"NON SI PUÒ' SALIRE.":GOTOl00 :rem 176 

4450 IFL(1)THEN800 :rem 241 

4455 IFSE= 1 2ANDL( 1 8)ANDL(18)<>1 2ANDL(18)<>4THENPRINT"SONO 
BLOCCATO!":G0T04480 :rem 25 

4460 IFSE=5AND(L(18)=0ORL(30)=OORL(31)=0)THENPRINT"QUALCO 
SA NON PASSA.":GOTO!00 : rem 137 

4470 IFDOTHENSE=DO:GOTO20 :rem 93 

4480 PRINT"NON SI PUÒ' SCENDERE.": GOTO!00 :rem 62 
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Guerra aerea 


E scoppiata una accanita battaglia 
tra due nazioni, una delle quali è 
la vostra patria. 

Venite subito richiamato alle armi 
per guidare un modernissimo 
"mig" e sconfiggere le forze aeree 
nemiche. 

Facendo partire il gioco appaiono 
poche brevi istruzioni su come 
muovere il mirino della mitraglia 
del vostro "mig" per sparare, e su¬ 
bito dopo inizia la battaglia. 
Dapprima ogni aereo appare come 
un puntino, ma gradualmente si 
avvicina al vostro aereo e il com- 


u 

<© 

u 


puter ve ne da una realistica rap¬ 
presentazione in tre dimensioni. 

Se non riuscite a colpire l'aereo ne¬ 
mico prima che esso si scontri con 
voi.(si tratta di "Kamikaze"), mori¬ 
rete e il computer vi mostrerà il 
punteggio raggiunto. 

Se al contrario riuscirete a colpire 
l'aereo nemico, il computer vi darà 
ugualmente la vostra situazione in 
punti, ma visualizzerà un 'altro ae¬ 
reo nemico da colpire. 

Ed ora mano alla cloche e buon di¬ 
vertimento!! 


1 GOSUB63900 
3 GOSUBl000 

5 W2=256:PT=0:H=0:S=.02 

6 DIMPK(255):DIMF(8,2),FD(8,2):DIMGK(255):GOSUB2 

7 K=0:FORI=OTOl:SS(I)=INT(RND(1)*1000):NEXTI 

8 A5 = 0:M= 9:MM=9:AL=0:AK=0:AA=0:FG=0:GOSUBl 300:R= 

9 POKEUG,U0:POKEUB,U0:PRINT"{CLR}" 

10 PRINT"{CLR}":PP=P:P=PEEK(197) 

15 ONPK(P)GOTO!05,20,30,40,50,60 
20 K=K+1:AK=AK+1 

22 IFP=62THEN50 
24 IFP=12THEN4 0 
28 GOTO!00 
30 K=K-1:AK=AK-1 

32 IFP=14THEN50 
34 IFP=20THEN40 

33 GOTO!00 

40 K=K-4 0 :AL=AL-1 
48 GOTOIOO 
50 K=K+40:AL=AL+1 
58 GOTO!00 

60 IFFG=0THENFG= 1:KW=K 
100 IFPP = PTHENPP = 0: GOTO! 5 
105 IFAA=0THENGOSUB50000 


: rem 

1 79 

: rem 

1 1 6 

: rem 
000 

44 

: rem 

1 33 

: rem 

160 

0 :RR= 

0 

: rem 

232 

: rem 

4 

: rem 

10 

: rem 

222 

: rem 

1 24 

: rem 

1 24 

: rem 

1 20 

: rem 

52 

: rem 

1 29 

: rem 

1 22 

: rem 

1 20 

: rem 

53 

: rem 

1 83 

: rem 

54 

: rem 

1 80 

: rem 

55 

: rem 

125 

: rem 

98 

: rem 

1 84 
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1 40 

IFAA= OORAK<OORAK> 3 90RAL<1ORAL>2 3THEN152 

:rem 

182 

1 50 

PRINTLEFT$(D$,AL);TAB(AK)D$(M) 

: rem 

21 7 

1 52 

IFFG=0THENl60 

: rem 

231 

1 53 

IFR>MTHENFG=0:R=0:RR=0:G0T0160 

: rem 

1 24 

1 54 

FORI=1T02 

: rem 

1 3 

1 55 

IFROMTHEN1 57 

: rem 

1 5 

1 56 

GK=PEEK(F(R,I)+K-KW):ONGK(GK)G0T0300,157 

:rem 

101 

1 57 

IFR<50RI=2THENP0KEF(R,I)+K-KW,FD(R,I) 

: rem 

23 

1 58 

IFR<50RI=2THENP0KE54272+F(R,I)+K-KW,U2 

:rem 

44 

1 59 

NEXTI:RR=RR+. 1 1 * (1 0-RR) :R=IN.T(RR) : IFR=9THENR=1 00 




:rem 

21 5 

1 60 

IFAATHENFORI=QlTOQ4:POKEGG(I),GD:POKE54272+GG(I), 

U3 :N 


EXTI 

: rem 

108 

1 62 

IFAATHENl 64 

:rem 

1 1 6 

1 63 

GOTO!80 

:rem 

108 

1 64 

A8=0:IFRND(1)*(.03+S)>.055THENA8=1 

:rem 

86 

1 7^ 

MM=MM-S*(10-MM):M=INT(MM):IFMCOTHENGOSUB51000:M=9 

:MM= 


9 

:rem 

57 

1 78 

IFA8THENAK=AK+K5:AL=AL+L5:A5=A5+1:IFA5=10THENA5=- 

1 0 :L 


5=-L5:K5=-K5 

:rem* 

1 06 

1 80 

REM VISUALIZZA LE STELLE 

: rem 

233 

1 82 

FORI = 0TOl :IF(SS(I)+K)< OOR(SS(I)+K)>1OOOTHENl84 




: rem 

1 87 

1 83 

POKEUS+SS(I)+K,42:POKEUC+SS(I)+K,UE 

:rem 

1 42 

1 84 

NEXTI 

:rem 

37 

200 

GOTO!0 

:rem 

44 

300 

REM AEROPLANO COLPITO 

: rem 

50 

310 

POKEUG,UR 

:rem 

50 

350 

FORI=lTO600:NEXTI 

: rem 

49 

360 

FG=0:A5=0 

: rem 

176 

370 

S=S+.005 

: rem 

107 

379 

PT=PT+INT(S*MM*100) : IFPT>HITHENHI = PT 

: rem 

62 

380 

POKEUG,U0:H=H+1:PRINT"{CLR}" 

: rem 

24 

382 

FORI = l T05 rPRINTTAB(1*4)"{GIU'}BRAVISSIMO I ! 

)":NEXTI 



: rem 

34 

386 

PRINT"{ 2 GIU'}HAI COLPITO"H" AEREI NEMICI" 

2 rem 

39 

387 

PRINT"{GIU'}E HAI TOTALIZZATO"INT(S*MM*100) 

"PUNTI 

II 

• 



2 rem 

1 6 

388 

PRINT"{GIU’}QUESTO PORTA IL TUO PUNTEGGIO TOTALE . 

A "P 


T" PUNTI." 

2 rem 

21 9 

389 

PRINT"{GIU'}IL RECORD E' DI"HI" PUNTI." 

2 rem 

102 

390 

PRINT"{GIU'}IL PROSSIMO AEROPLANO ARRIVERÀ' 

PRESTO," 



2 rem 

1 88 

391 

PRINT"ED E' MOLTO AGGUERRITO." 

2 rem 

205 

395 

FORI=lT02000:NEXTI 

2 rem 

102 

399 

GOT08 

2 rem 

22 

1 OOC 

i POKE53280,1:POKE53281,1 

2 rem 

24 

1 005 

> PRINT"{CLR}{RED}{ 13 SPAZI}GUERRA AEREA" 

2 rem 

106 

1 007 

’ PRÌNT"(GIU'}{BLU}SPARA AGLI AEROPLANI NEMICI CHE 

VOL 


ANO " 

2 rem 

76 
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{ 2 SPAZI}COLPISCANO LORO!!" 

: rem 

1 00 

1 01 0 

PRINT"PER MUOVERTI USA I TASTI:" 

: rem 

230 

1 01 2 

PRINT"{GIU'}{ 14 SPAZI}Q W E" 

: rem 

1 47 

1 01 3 

PRINT"{ 15 SPAZI}M-N" 

: rem 

1 4 

1 01 4 

PRINT"{ 14 SPAZI}A* S*D" 

: rem 

239 

1 01 5 

PRINT"{ 15 SPAZI}N-M" 

: rem 

16 

1 01 6 

PRINT" S=FUOCO{ 6 SPAZI}Z X C" 

: rem 

154 

1 030 

PRINT"{GIU'}{ 6 SPAZI}PREMI UN TASTO PER GIOCARE 

11 

. 



: rem 

96 

1 035 

GETA$:IFA$ = ""THENl 03 5 

:rem 

181 

1 040 

PRINT"{GIU'}{ 9 DES}{GRN}OK.ASPETTA UN 

ATTIMO. 




: rem 

113 

1 045 

PRINTU9$; 

: rem 

68 

1 090 

RETURN 

: rem 

170 

1 300 

D$ (8)=".":D$(7)="-":D$(6)="[<E>]":D$(5) 

="@L":D$(4)=" 


{SIN}-W-{SU}{ 2 SIN}[<R>]" 

: rem 

1 85 

1 31 0 

D$ (3)="{SIN}-()-{SU}{ 3 SIN}PO":D$(2)=" 

{ 3 SIN} 



{ 2 *}(W){ 2 *}{SU}{ 5 SIN}U[<£>]l{SU}{ 

3 SIN}*[<R>] 


★ » 

: rem 

1 68 

1 320 

D$(l)="{ 5 SIN}{ 4 *}(<>){ 4 *}{SU}{ 8 

SIN} N 



[< 2 +>]M{SU}{ 2 SIN}[<G>]{SUT{ 3 SIN}[< 4 P>]" 




:rem 

1 

1 330 

D$(0)="{ 11 SIN}[< 2 @>][< 4 P>][< 2 0>][< 2 !>](<>) 


[< 2 I>][< 2 0>][< 4 P>][< 2 @>]{SU}{ 14 SIN}N 



[< 2 +>]M{SU}{ 2 SIN}[<H>]{SU}{ 3 SIN}[< 4 P>]" 




: rem 

224 

1 400 

D$ = "{HOME}":FORI = OTOl00:D$=D$ + "{GIU'}": 

NEXTI 




: rem 

85 

1 500 

Q1=1 :Q4 = 4:GG=500+US:GG(1)=496+US 

:rem 

80 

1 505 

GG (2)=504+US:GG(3)=380+US:GG(4)=620+US: 

GD = 9! 




: rem 

221 

1 51 0 

QW=4 80+US 

: rem 

27 

1 999 

RETURN 

: rem 

1 88 

2000 

FORI = 0TO2 55:PK(I)=1 :NEXTI 

: rem 

61 

201 0 

PK (1 0) =2 :PK (1 8) =3:PK(23) =4 :PK(9) =5 

:rem 

75 

2020 

PK (62) =2 :PK (1 4) =3 :PK (1 2) =2 :PK (20) =3 :PK (1 3) =6 




: rem 

1 1 1 

2040 

FORI=0TO255:GK(I)=1:NEXTI 

: rem 

56 

2050 

GK(42)=2:GK(46)=2:GK(32)=2 :GK(160)=2:GK(233)=2 




: rem 

1 73 


2100 F ( 0,1 )=US+4 90 :F( 
503 

2110 F(2,1)=US+498 :F( 
501 

2120 FORJ =1T02:F(4,J) 
2130 F0RI=5T06:FORJ=l 
2140 F0RI=7T08:FORJ=1 
2200 FD(0,1)=102:FD (1 
1 ) =1 08 


0,2) =US+51 0 :F(1,1)=US+497 :F(1,2)=US+ 

:rem 180 

2,2)=US+502:F(3,1)=US + 499 :F(3,2)=US+ 

■i rvr» 


=F(3,J):NEXTJ 
T02:F(I,J)=US+500 
TO2 :F(I,J)=US+54 0 
,1)=22 7 :FD(2,1)=2 


:rem 198 
:rem 244 
:NEXTJ,I : rem 92 
:NEXTJ,I :rem 101 
48:FD(3,1)=98:FD ( 4, 

: rem 197 


29 



221 0 FD(5,1)=111:FD(6,1)=100:FD(7,1)=6 9:FD (8,1)=4 5 




: rem 

29 

2220 FORI=0TO8:FD(1,2)=FD(I,1):NEXTI 

: rem 

1 22 

2230 FD(4,2)=123 

: rem 

7 

2999 RETURN 

: rem 

1 89 

50000 

IFRND(1)<.9THENRETURN 

: rem 

156 

5001 0 

AA=1 :AK=INT(RND(1)*24 + 8) 

: rem 

1 26 

50030 

AL=INT(RND(1)*8+7) 

: rem 

40 

50040 

K5=INT(RND(1)*3-1):L5=INT(RND(1)*3-1) 

: rem 

1 04 

50099 

RETURN 

: rem 

231 

51 000 

REM FA LAMPEGGIARE 5 VOLTE LO SCHERMO 

: rem 

234 

51 002 

FORK=1T05:POKEUG,U1 :FORN=1T030 :NEXTN:POKEUG,U0 




: rem 

135 

51 004 

FORN=1TO20:NEXTN:NEXTK 

: rem 

45 

51 01 0 

AA= 0 :FG= 0 :R= 0 :RR= 0 :AK=0:AL=0:S=.02 :A5 = 0 

: rem 

60 

51 050 

PRINT" {CLR} { 3 GIU'H 13 SPAZI }OH, PECCATO!!!" 




: rem 

1 83 

51 060 

PRINT"{GIU'}SEI STATO COLPITO DA UN AEREO 

NEMICO ! ! 


i " 

• 

: rem 

22 

51 070 

PRINT"IN QUESTO MOMENTO LA TUA SITUAZIONE 

ERA: " 




: rem 

249 

51 080 

PRINT"{GIU'}HAI COLPITO"H" AEROPLANI NEMICI 




: rem 

1 34 

51 082 

PRINT"{GIU'}TOTALIZZANDO IN TOTALE"PT" PUNTI" 




: rem 

93 

51 085 

PRINT"{ 2 GIU'}IL RECORD E' DI"HI" PUNTI. 

" : rem 

21 4 

51 090 

PRINT"{ 2 GIU'}GIOCHI ANCORA (S/N)?" 

: rem 

185 

51 091 

GETA$:IFA$<>""THEN51 091 

: rem 

96 

51 092 

GETA$:IFA$ = ""THEN51 092 

: rem 

37 

51 094 

IFA$ ="N"THENPRINT"{ 2 GIU'}CIAO, E GRAZIE 

PER AVER 


GIOCATO CON ME ! !" : END 

: rem 

23 

51 096 

PT=0:H=0 

: rem 

5 

51 099 

RETURN 

: rem 

232 

63900 

REM CODICI COLORE E VARIABILI PER IL SUONO:rem 

61 

63902 

US=1024:UC=55296:UG=53281 

: rem 

224 

63904 

UB=53280:UV=54296:UA=54277:UD=54278:UH=54273:UL 

= 542 


72 

: rem 

109 

63905 

UW=542 76:U0=0:U0$ = "{BLK}":Ul=1 :Ul$ = "{WHT} 

" : U2 = 2 

:U2$ 


="{RED}" 

: rem 

98 

63906 

U3 = 5:U3$ = "{GRN}":U4=6:U4$ = "{BLU}":U5 = 8:U5$ = "[<1> ] " : 


U6 = 9:U6$ = "[< 2 >]" 

: rem 

161 

6391 0 

U7 = l0:U7$ = "[<4>]":U8 = l3:U8$ = "[<6>]":U9 = 1 4 

:U9$ = " 



[<7>]":UU=4:UU$ = "{PUR}" 

: rem 

135 

6391 5 

UR=12:UR$ = "[<5>]":UE=7:UE$ = "{YEL}":UF=11 : 

UF$ = " [<3>] 


": RETURN 

2 rem 

1 06 


READY 


:rem 173 


Da questo mese 
S. Commodore è in due 



versioni: per C 64 e 
per VIC 20, C16 E Plus/4. 
LA RIVISTA A MISURA DI 
COMPUTER! 


Sono idee 

W. SOfLn.ce 
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David Lawrence 

TECNICHE 

DI PROGRAMMAZIONE 
SUL COMMODORE 64 

L'arte della buona program- 
mazine alla portata di chiun¬ 
que possegga un Commodore 
64. 

cod. 575D Pag. 176 
Lire 16.500 

Daria Gianni, Carlo Tognoni 

MSX: IL BASIC 

Il primo libro sul BASIC MSX, 
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MINIMO 
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che unisce le caratteristiche di 
un manuale di riferimento a 
quelle di un buon testo didatti¬ 
co di programmazione. 

cod. 417D Pag. 216 
Lire 20.500 


Brian Lloyd 

I TUOI AMICI COMMODORE 16 
E PLUS 4 

Anche i computer hanno un 
cuore: impara a programmare 
con i tuoi amici C16 e Plus 4. 

cod. 423B Pag. 168 
Lire 16.000 

Rodnay Zaks 

IL TUO PRIMO COMPUTER 

Una semplice introduzione al 
mondo dei personal orientata 
ad utenti alla loro prima espe¬ 
rienza con il computer. 

cod. 351D Pag. 240 
Lire 25.000 
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